Option Explicit
'ۭqҲ
Private Sub UserForm_QueryClose(Cancel As Integer, _
                                CloseMode As Integer)
    If CloseMode = 0 Then
        MsgBox "ЫUOsH"
        Cancel = True
    End If
End Sub

'HOs
Private Sub CommandButton1_Click()
    Unload Me
End Sub
